home *** CD-ROM | disk | FTP | other *** search
/ Aminet 22 / Aminet 22 (1997)(GTI - Schatztruhe)[!][Dec 1997].iso / Aminet / game / role / CTW10d.lha / CTW / scripts / General / TransXProblem.script < prev    next >
Text File  |  1997-09-02  |  871b  |  55 lines
  1. SET @WALKLOOP 0|
  2. SET @SPEED 2|
  3. SET @TIMEWAIT 800|
  4. TIMER @TIME|
  5. MATH @TIME + @TIMEWAIT|
  6. :LOOP|
  7. ONGOTO 0 @WALKLOOP WN WS WE WW|
  8. :RTLOOP|
  9. TIMER @CHKTIME|
  10. IF @CHKTIME > @TIME WALKFIX|
  11. GOTO LOOP|
  12.  
  13. :WN|
  14. WALK 0 @SPEED|
  15. GOTO RTLOOP|
  16.  
  17. :WS|
  18. WALK 1 @SPEED|
  19. GOTO RTLOOP|
  20.  
  21. :WE|
  22. WALK 2 @SPEED|
  23. GOTO RTLOOP|
  24.  
  25. :WW|
  26. WALK 3 @SPEED|
  27. GOTO RTLOOP|
  28.  
  29. :WALKFIX|
  30. RND @WALKLOOP 3|
  31. TIMER @TIME|
  32. MATH @TIME + @TIMEWAIT|
  33. GOTO LOOP|
  34.  
  35. :TOUCH|
  36. [ "Have you heard about TransX's big"|
  37. [ "problem with getting flights to Earth?"|
  38. ] "Yes, I Have" YES|
  39. ] "No, I Haven't" NO| 
  40. GOTO LOOP|
  41.  
  42. :YES|
  43. [ "I don't think it will get any better"|
  44. [ "anytime soon."|
  45. GOTO LOOP|
  46.  
  47. :NO|
  48. [ "You haven't?  Well, I'll fix that"|
  49. [ "right now.  TransX's engines keep"|
  50. [ "breaking down during their flights."|
  51. [ "They need continual repair.  It"|
  52. [ "seems that their charter flights"|
  53. [ "are going down the tubes!"|
  54. GOTO LOOP|
  55.